home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 (Alt) / MACD 5.bin / workbench / time / tolleuhr / tolleuhr_asm / include / defs.i
Encoding:
Text File  |  1994-12-07  |  978 b   |  69 lines
  1.  
  2.         IFND    struct_macros_i
  3.  
  4. struct_macros_i    set    1
  5.  
  6.  
  7. ; macros to build a structure on the stack
  8.  
  9. STRUCT        macro                ; start structure definition
  10. softset        set    0
  11. \1        equ    softset
  12.         endm
  13.  
  14. UBYTE        macro                ; define a byte
  15.     IFGE    NARG-3
  16.         ERROR    Wrong UBYTE '\1' definition !
  17.     ENDC
  18.     IFEQ    NARG-2
  19. softset        set    softset-1*\2
  20.     ENDC
  21.     IFEQ    NARG-1
  22. softset        set    softset-1
  23.     ENDC
  24. \1        equ    softset
  25.         endm
  26.  
  27. UWORD        macro                ; define a word
  28.     IFGE    NARG-3
  29.         ERROR    Wrong UWORD '\1' definition !
  30.     ENDC
  31.     IFEQ    NARG-2
  32. softset        set    softset-2*\2
  33.     ENDC
  34.     IFEQ    NARG-1
  35. softset        set    softset-2
  36.     ENDC
  37. \1        equ    softset
  38.         endm
  39.  
  40. ULONG        macro                ; define a long
  41.     IFGE    NARG-3
  42.         ERROR    Wrong ULONG '\1' definition !
  43.     ENDC
  44.     IFEQ    NARG-2
  45. softset        set    softset-4*\2
  46.     ENDC
  47.     IFEQ    NARG-1
  48. softset        set    softset-4
  49.     ENDC
  50. \1        equ    softset
  51.         endm
  52.  
  53. LABEL        macro                ; end structure definition
  54. \1        equ    softset
  55.         endm
  56.  
  57. ; macros to call system functions
  58.  
  59. CALL        macro
  60.         move.l    \2,a6
  61.         jsr    _LVO\1(a6)
  62.         endm
  63.  
  64. RECALL        macro
  65.         jsr    _LVO\1(a6)
  66.         endm
  67.  
  68.         ENDC
  69.